#!/usr/bin/perl -w
use strict;


my $num_mark = 0;
my $file;

while (<>) {
	
	if(/^f/) {
		$num_mark++;
		$file = 'FILE' . $num_mark;
		open FILE, '>', "${num_mark}.blur.txt";
	}else {
		print FILE;
	}
}

# foreach (1..$num_mark) {
	# $file = 'file' . $num_mark;
	# close $file;
# }

close FILE;